home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __sports__ / sports_trivia__ / baseball / card_6158.txt < prev    next >
Text File  |  1990-03-18  |  2KB  |  99 lines
  1. -- card: 6158 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2776
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put empty into field "number correct"
  9.   put empty into field "number wrong"
  10.   wait 50
  11. end openCard
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32. -- part 12 (button)
  33. -- low flags: 00
  34. -- high flags: 8003
  35. -- rect: left=0 top=282 right=342 bottom=69
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 301 / 301
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Ask Question
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   global numberVar1
  47.   global numberVar2
  48.   answer "Who was the 1st black Mjr League Captian?" with "Willie Mays" or "F. Robinson" or "Ernie Banks"
  49.   if it is "Willie Mays" then
  50.     add "1" to numberVar1
  51.     put numberVar1 into field "number correct"
  52.     select text of field "number correct"
  53.     doMenu copy text
  54.     go next card
  55.     select text of field "number correct"
  56.     doMenu paste text
  57.     put numberVar2 into field "number wrong"
  58.     exit mouseUp
  59.   else add "1" to numberVar2
  60.   put numberVar2 into field "number wrong"
  61.   select text of field "number wrong"
  62.   doMenu copy text
  63.   doMenu "message"
  64.   beep
  65.   type "Willies Mays"
  66.   wait 30
  67.   hide message box
  68.   wait 30
  69.   go next card
  70.   select text of field "number wrong"
  71.   doMenu paste text
  72.   put numberVar1 into field "number correct"
  73. end mouseUp
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81. --
  82.  
  83.  
  84. -- part contents for background part 2
  85. ----- text -----
  86. Correct Answers
  87.  
  88. -- part contents for background part 9
  89. ----- text -----
  90. Wrong
  91. Answers
  92.  
  93. -- part contents for background part 11
  94. ----- text -----
  95. 2
  96.  
  97. -- part contents for background part 3
  98. ----- text -----
  99. 8